<!--#include file="lib/utf-8.asp"-->
<!--#include file="lib/connopen.asp"-->
<!--#include file="lib/asp-common-lib.asp"-->
<%
	opt_id=SafeRequest("opt_id",1)
	Set rs_records = Server.CreateObject("ADODB.Recordset")
	sql = "SELECT * FROM records where opt_id="&opt_id
	rs_records.Open sql,conn,1,1
	if rs_records.eof and rs_records.bof then
		response.write("无")
	else
%>
	<table class="full">
		<tbody>
			<tr>
				<th scope="col">变更项目</th>
				<th>原始</th>
				<th></th>
				<th>变更</th>
			</tr>
		<%
			do while not rs_records.eof
				if rs_records("res_source")="" or isnull(rs_records("res_source")) then res_source="空" else res_source=rs_records("res_source")
				if rs_records("res_dest")="" or isnull(rs_records("res_dest")) then res_dest="空" else res_dest=rs_records("res_dest")
				res_fieldname=rs_records("res_fieldname")
				if dCdTable("cd_status")=res_fieldname then
					if res_source<>"空" then res_source=dStatus(res_source)
					if res_dest<>"空" then res_dest=dStatus(res_dest)
				end if
				if dCdTable("cd_confirm")=res_fieldname then
					if res_source<>"空" then res_source=dBool(res_source)
					if res_dest<>"空" then res_dest=dBool(res_dest)
				end if
		%>
			<tr>
				<td><%=res_fieldname%></td>
				<td><%=res_source%></td>
				<td>-&gt;</td>
				<td><%=res_dest%></td>
			</tr>
		<%
				rs_records.movenext
			loop
		%>
		</tbody>
	</table>
<%
	end if
	rs_records.close
	set rs_records=nothing
%>
<!--#include file="lib/connclose.asp"-->
